home *** CD-ROM | disk | FTP | other *** search
/ Imaginext Pirate Activity / ImaginextPirateActivityCD.iso / Pirate Raider / piratedemo.dxr / Lingo_54.ls < prev    next >
Encoding:
Text File  |  2003-05-30  |  1.1 KB  |  68 lines
  1. property sprt, anims, animlist, animPointer, speed, state, moveAmt
  2. global offScreen, Rowboat
  3.  
  4. on beginSprite me
  5.   sprt = sprite(me.spriteNum)
  6.   Rowboat = sprt
  7.   anims = value(member("rowboatAnims").text)
  8.   animPointer = 1
  9.   state = "offScreen"
  10.   animlist = []
  11.   sprt.loc = offScreen
  12. end
  13.  
  14. on runStateHandlers me
  15.   if state <> "offScreen" then
  16.     sprt.locZ = sprt.locV + 93
  17.     animate()
  18.     moveMe()
  19.   end if
  20. end
  21.  
  22. on animate me
  23.   sprt.member = animlist[animPointer]
  24.   animPointer = animPointer + 1
  25.   if animPointer > count(animlist) then
  26.     animOver()
  27.   end if
  28. end
  29.  
  30. on animOver me
  31.   animPointer = 1
  32. end
  33.  
  34. on moveMe me, amt
  35.   if state <> "offScreen" then
  36.     sprt.loc = sprt.loc + amt
  37.     myMove()
  38.   end if
  39. end
  40.  
  41. on myMove me
  42.   doMove()
  43. end
  44.  
  45. on doMove
  46.   sprt.loc = sprt.loc + moveAmt
  47.   test = sendAllSprites(#aiCollision, sprt)
  48.   if not voidp(test) then
  49.     sprt.loc = sprt.loc - moveAmt
  50.   end if
  51. end
  52.  
  53. on goLeft me, loc
  54.   state = #rowLeft
  55.   animlist = anims[#rowLeft]
  56.   animPointer = 1
  57.   moveAmt = point(-1, 1)
  58.   sprt.loc = loc
  59. end
  60.  
  61. on goRight me, loc
  62.   state = #rowRight
  63.   animlist = anims[#rowRight]
  64.   animPointer = 1
  65.   moveAmt = point(1, 1)
  66.   sprt.loc = loc
  67. end
  68.